;This snippet is an EXAMPLE of how you can send files between two people without dcc. 
;This can even work if the other user isn't on the same network you are on. 
;Made by quickman
;In a future version of the snippet i will add a progress meter of somesort. I was trying to
;but the mp3 quality degraded sharply when i had it. I will find a way and re-release.
;Here we will do an example of how to send an mp3.

;The person sending the file will have this in their remotes

;usage: /send.listen <port> ;listen for connection on the specified port
alias send.listen { if ($1) { set %socksend.type 1 | socklisten sock.send $1 } }
;usage: /send.start <path\path to filename> ;tell the socket which file to send and starts to send
alias send.start { if ($1-) { set %socksend.filesize $file($1-).size | binvar } }
;accepts the connection and lets you know that
on *:socklisten:sock.send:{ sockaccept socksend | sockclose sock.send | echo -a Connected! }
;The downloading process
alias binvar {
  ;lets the socket know the file is done and closes the socket
  if ($calc(8192 * $calc(%socksend.type - 1)) > %socksend.filesize) { echo -a File is finished sending. | sockclose socksend | return }
 ;reads the data from the file
 bread " $+ %socksend.file $+ " $calc(8192 * $calc(%socksend.type - 1)) $calc(8192 * %socksend.type) &l 
  ;incs the variable we need to get the bytes correct  
  inc %socksend.type   
  ;sends the data to the other user
  sockwrite socksend &l 
}
;keeps on reading the data
on *:sockwrite:socksend:{ binvar }

;The person receiving the file will have this in their remotes(dont put both in your remotes or it will not work properly)

;usage: /send.call <ip> <port> connects to the ip and port of the listening connection. ***NOTE*** must be same port as the listening port is on.
alias send.call { if ($1) && ($2) { sockopen socksend $1 $2 } }
;tells you you are connected or not
on *:sockopen:socksend:{
  if ($sockerr) { echo -a Error Connecting. | return }
  else { echo -a Connected! }
} 
;reads the data from the other user
on *:sockread:socksend:{
 ;reads binary data
  sockread 4096 &r
  while ($sockbr) {
 ;writes to the mp3
    bwrite gettingfile.mp3 -1 -1 &r
   ;keeps reading
    sockread 4096 &r
  }
}
;lets you know it is done receiving
on *:sockclose:socksend:{ echo -a File is finished receiving. }

;EOF